home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / BARGRAPH.BAS < prev    next >
BASIC Source File  |  1994-10-31  |  624b  |  33 lines
  1. 10 KEY OFF
  2. 20 SCREEN 9:COLOR 15,1
  3. 30 CLS
  4. 40 DIM A$(12)
  5. 50 DIM A%(12)
  6. 60 FOR N=1 TO 12
  7. 70 READ A$(N)
  8. 80 DATA OCK,₧UB,MAR,NÿS,MAY,HAZ
  9. 90 DATA TEM,AªU,EYL,EKM,KAS,ARL
  10. 100 PRINT A$(N)
  11. 110 INPUT A%(N)
  12. 120 IF A%(N) <0 OR A%(N) >20 THEN 300
  13. 130 NEXT N
  14. 140 PRINT
  15. 150 FOR P=20 TO 1 STEP -1
  16. 160 PRINT USING "##";P;
  17. 170 FOR N=1 TO 12
  18. 180 IF A%(N)<P THEN 210
  19. 190 PRINT "  █  ";
  20. 200 GOTO 220
  21. 210 PRINT "     ";
  22. 220 NEXT N
  23. 230 PRINT
  24. 240 NEXT P
  25. 250 PRINT "   ";
  26. 260 FOR N=1 TO 12
  27. 270 PRINT " ";A$(N)" ";
  28. 280 NEXT N
  29. 290 END
  30. 300 PRINT
  31. 310 PRINT "HATALI SAYI GÿRDÿNÿZ BÿR DAHA DENEYÿNÿZ...!":GOTO 100
  32. 320 END
  33.